home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Scrap.p < prev    next >
Encoding:
Text File  |  1992-02-26  |  1.3 KB  |  59 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Scrap.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-91
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT SCRAP;
  11. INTERFACE
  12. USES TYPES;
  13. CONST
  14.  
  15. { Error Codes }
  16. badScrapType = $1610;  { No scrap of this type. }
  17.  
  18. { Scrap Types }
  19. textScrap = $0000;
  20. picScrap = $0001;
  21. sampledSoundScrap = $0002;
  22. teStyleScrap = $0064;
  23. iconScrap = $4945;
  24. maskScrap = $8001;
  25. colorTableScrap = $8002;
  26. resourceRefScrap = $8003;
  27.  
  28. TYPE
  29.  
  30. ScrapInfo = RECORD
  31.     scrapType: integer;
  32.     scrapSize: longint;
  33.     scrapHandle: Handle;
  34. END;
  35. ScrapInfoPtr = ^ScrapInfo;
  36.  
  37. PROCEDURE GetScrap ( destHandle:Handle; scrapType:Integer)  ;
  38. FUNCTION GetScrapCount : Integer ;
  39. FUNCTION GetScrapHandle ( scrapType:Integer) : handle ;
  40. FUNCTION GetScrapPath : Ptr ;
  41. FUNCTION GetScrapSize ( scrapType:Integer) : Longint ;
  42. FUNCTION GetScrapState : Integer ;
  43. PROCEDURE LoadScrap;
  44. PROCEDURE PutScrap ( numBytes:Longint; scrapType:Integer; srcPtr:Ptr) ;
  45. PROCEDURE ScrapBootInit;
  46. PROCEDURE ScrapReset;
  47. PROCEDURE ScrapShutDown;
  48. PROCEDURE ScrapStartUp;
  49. FUNCTION ScrapStatus : Boolean ;
  50. FUNCTION ScrapVersion : Integer ;
  51. PROCEDURE SetScrapPath ( path:Str255) ;
  52. PROCEDURE UnloadScrap;
  53. PROCEDURE ZeroScrap;
  54.  
  55. PROCEDURE GetIndScrap(index:integer; var info:ScrapInfo);
  56.  
  57. IMPLEMENTATION
  58. END.
  59.